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rogram FuelMassCalculation; 


onst 
At = 

80449776.0; 

{ft) 

Mu = 

1.407646882E+16; 

{ft A 3/s A 2) 

Pi = 

3.141592654; 


Gnot 

= 21.9545; 

{mi/hr-s) 

WDot 

= 31.185; 

{lbf/s) 


ype 

String6 = stringC63; 
ar 

DelVl, DelV2, WDry, WLoadllp, WLoadDown, 
WFuel, Tt, Tl, T2, T3, T4, WI, W2, W3, 
Al, A2, A3, AI, AF, AFuel, ASave 
Valuel, Value2, Values, Value4 
Code 


Isp, 

W4, 


El, 


E2, WI, WF, 

: Real; 

: String6; 

: Integer; 




rocedure FindDelV (var Valuel, Value2: Real) 
const 

I Re = 
hi = 
h2 = 

I Mu * 

Theta * 

. ar 

Rl, R2, At, VICirc, V2Circ, VIPer, V2Ap, 

I DelVCirc, DelVPlane 
egin 


3963.19SS63; 
311.0; 

22236.0; 

1.407646882E+16; 
0.497418836; 


{ml> 

(ml) 

{ml > 

{ft A 3/s A 2) 
{rads; 28.5 


deg) 


Real; 




t ^ 


I 

I 

Li 

p 


{mi) 

{ml > 

{mi) 

/ Rl) • (3600/5280); 

( 2/R1 - 1/At )) • (3600/5280); 


Rl : = Re ♦ hi; 

R2 :® Re ♦ h2; 

At s® (1/2) * (Rl + R2); 

VICirc i= SORT ((Mu/5280> 

VIPer s® SORT ((Mu/5280) • 

Valuel := VIPer - VICirc; 

V2Ap s® SORT ((Mu/5280) * ( 

V2Circ •= SORT ((Mu/5280) / 

DelVCirc :® V2Circ - V2Ap; 

DelVPlane i= 2 * V2Circ * SIN(Theta/2); 

Value2 := SORT (SQR(DelVCirc) ♦ SQR(DelVPlane)); 
nd; 


2/R2 - 1/At )) * (3600/5280) 
R2) • (3600/5280); 


P 

I 


EGIN 

textmode(C80); 
textcolor(15); 
textbackground(1); 


\ 



WDry s® 0.0; 
WLoadUp := 0.0; 
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ff 

I 

I 


Isp : = 
El 
E2 
WI 
WF 
WFuel 
Delete 
Delete 
Delete 
Delete 


0 . 0 ; 

0 . 0 ; 

O. 0; 

0 . 0 ; 

0 . 0 ; 

: = 0 . 0 ; 

(Valuel, 
(Value2, 
(Value3, 
(Value4, 


1, Length(Valuel)); 
1, Length(Value2)); 
1, Length(Value3)); 
1, Length(Value4)); 


| Tt : = 0.0; 

ClrScr; 

I ' WriteLn; 

WrlteLn; 

WriteLn (' OTV Fuel Mass Calculation for Hohmann Transfer') 

? WriteLn; 

I WriteLn (' Auburn University, Alabama'); 

WriteLn (' AE 448'); 

WriteLn; 

I WriteLn; 

Write (' Enter dry weight of OTV in pounds and hit return key: '); 

ReadLn (Valuel); 

Val (Valuel, WDry, Code); 

■ WriteLn; 

Write (' Enter weight of payload to be delivered to GEO in pounds: '); 

ReadLn (Value2); 

■ Val (Value2, WLoadUp, Code); 


/ 


WriteLn; 

WriteLn (' Enter weight of payload to be returned from GEO. (If no payload') 

Write (' is to be returned, enter "0"): '); 

ReadLn (Value4); 

Val (Value4, WLoadDown, Code); 


I WriteLn; 

Write (' Enter specific impulse of engine in seconds: '); 

ReadLn (Value3); 

Val (Value3, Isp, Code); 

| FindDelV (DelVl, DelV2); 

I El := EXP ( DelVl / (Isp • Gnot)); (Press Cntl-K-D to get out) 

E2 := EXP ( DelV2 / (Isp • Gnot)); 


■ (Main Calculations) 

• (For All-Propulsive and Aerobraked Missions) 

I (Dry OTV ♦ Down Payload in LEO -- OTV in Elliptical Transfer 
Orbit at Perigee) 

WF := (WDry ♦ WLoadDown) * El; 

I W4 := WF - WDry - WLoadDown; 

T4 :* (WF - WDry - WLoadDown) / WDot; 







{OTV in ETO at Apogee -- OTV in GEO w/ Down Payload} 

WI :— WF; 

WF i= WI • E2; 

W3 s = WF - WI; 

T3 : = (WF - WI) / WDot; 

AF :* (WDry ♦ WLoadDown) • E2; 

A3 := AF - WDry - WLoadDown; 

(OTV in GEO w/ Down Payload — OTV in GEO w/ Up Payload) 
WI := WF; 

WF := WI - WLoadDown + WLoadUp; 

AI := AF; 

AF : = AI - WLoadDown ♦ WLoadUp; 

(OTV in GEO w/ Up Payload -- OTV in ETO at Apogee) 

WI := WF; 

WF := WI * E2; 

W2 := WF - WI; 

T2 : = <WF - WI) / WDot; 

AI := AF; 

AF := AI * E2; 

A2 := AF - AI; 

(OTV in ETO at Perigee — OTV in LEO w/ Up Payload) 

WI := WF; 

WF : = WI • El; 

WI := WF - WI; 

T1 := (WF - WI) / WDot; 

AI := AF; 

AF : = AI * El; 

AI := AF - AI; 

(Weight of Fuel) 

WFuel :* WI + W2 + W3 ♦ W4; 

AFuel : * AI ♦ A2 ♦ A3; 

ASave := WFuel - AFuel; 


(Time of transfer) 

Tt 5 = 0.5 » ( 2 » Pi * SORT ((At*At*At> / Mu) 
Tt s= Tt / (3600); 


ClrScr; 
WriteLn; 
WriteLn; 
WriteLn; 
WriteLn (' 
WriteLn (' 

WriteLn (' 


Dry OTV Weight: 

Payload to be Delivered: 
lbf' ); 

Payload to be Returned: 
lbf' ) ; 


(sec) 
(hrs) 


WDry: 6:0, ' lbf') 

', WLoadUp: 6:0, 

', WLoadDown: 6:0, 


7 













WriteLn (' Specific Impulse of Engine: 
WriteLn (' Time of transfer: 

WriteLn; 


WriteLn <'ALL-PROPULSIVE MISSION:'); 

WriteLn; 

WriteLn (' Burn times: 

T2:4:0, T3:4:0, T4:4:0, ' s'); 

WriteLn (' Weight of Fuel needed for each burn: 

', W3:6:0, W4:6:0, ' lbf'); 

Write (' Total Weight of Fuel required: 
textcolor <1); 
textbackground(15); 

WriteLn (WFuel:6:0, ' lbf'); 

textcolor(15); 
textbackground(1); 


WriteLn; 

WriteLn ('AEROBRAKED MISSION:'); 


WriteLn; 

( WriteLn (' Weight of Fuel needed for each bvri»: 

', ', A3:6:0, ' lbf'); 

Write (' Total Weight of Fuel required: 

( textcolor(1); 

textbackground(15); 

WriteLn (AFuel:6:0, ' lbf'); 

I textcolor(15); 

textbackground(1); 

ASave := WFuel - AFuel; 

I WriteLn (' Weight of Fuel Saved using Aerobrake: 
END. 


Isp:6:0, ' s'); 

’ t Tt:6:0, ' hrs'); 


', Tl:4:0, 


/ 9 

t 9 


', Wl:6:0, 


W2:6:0 


' ) 


9 


9 

9 


A1:6:0, 


A2:6:0 


' ) 


9 


ASave:6:0, ' lbf') 
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TABLE EE.—Continued 
GEOMETRIC ALTITUDE, ENGLISH UNITS 


Altitude 


Temperoture 


Pressure 


Density 


Z, ft H, ft 



t,°C 


P f mb 


in. Hg 



lb ft' 



2300C0 

230500 

231C0C 

231500 

232000 

232500 

233000 

233500 

23*000 

23*500 

235000 

235500 

236000 

236500 

237000 

237500 

238000 

238500 

239000 

239500 

2*0000 

2 * C500 

2*1000 

2*1500 

2*2000 

2*2500 

2*3000 

2*3500 

2**000 

2**500 


227*91 

227980 

226*69 

228958 

229**7 

229936 

230*25 

23091 * 

231*03 

231892 

232381 

232870 

233359 

2338*8 

23*337 

23*825 

23531 * 

235803 

236292 

236780 

237269 

237758 

2382*6 

238735 

23922 * 

239712 

2*0201 

2*0669 

2*1176 

2*1666 


39*.728 
393 . 65 * 
392.581 
391.508 
390 .* 3 * 
389.361 
386.288 
387.215 
386 . 1*2 
385.069 

383.996 
382.923 
381.850 
380.777 
379 . 70 * 
378.632 
377.559 
376.*86 
375 .* 1 * 
37 *. 3*1 

373.269 
372.196 
371 . 12 * 
370.052 
368.979 
367.907 
366.635 
365.763 
36*.691 
363.619 


> 6 *. 9*2 
> 66.016 
> 67.089 
• 68.162 
- 69.236 
> 70.309 
- 71.382 
> 72.*55 
- 73.528 
> 7*.601 

- 75 . 67 * 
- 76 . 7*7 
- 77.820 
- 78.893 
• 79.966 
- 81.038 
- 82.111 
- 83 . 18 * 
- 8*.256 
• 85.329 

- 86.*01 
- 87 .* 7 * 
- 88 . 5*6 
• 89.618 
• 90.691 
■ 91.763 
■ 92.835 
■ 93.907 
■ 9 *. 979 
96.051 


- 53.857 
- 5*.*53 
- 55 . 0*9 
- 55 . 6*6 
- 56 . 2*2 
> 56.838 
- 57 .* 3 * 
- 58.031 
> 58.627 
- 59.223 

- 59.819 
- 60.*15 
- 61.011 
- 61.607 
> 62.203 
- 62.799 
- 63.395 
- 63.991 
- 6*.587 
> 65.183 

> 65.779 

> 66 . 37 * 

> 66.970 

> 67.566 

- 68.162 

- 68.757 

- 69.353 

- 69 . 9*8 

■ 70 . 5 ** 

• 71 . 1*0 


5**3373 

5.30882 

5 . 186 ** 

5.06658 

*. 9*917 

*. 83*17 

*.72155 

**61125 

*. 5032 * 

*. 397*7 

*•29391 
*.19251 
*• 0932 * 
3.99606 
3.90092 
3.80776 
3.71663 
3 . 627*1 
3 . 5*009 
3 .* 5*63 

3.37101 

3.28918 

3*20911 

3.13078 

3 . 05 * 1 * 

2.97916 

2.90582 

2 . 83*06 

2.76391 

2*69529 


1 . 60*58 - 3 

1.56769 

1.53156 

1 .*9616 

1 .* 61*9 

l.*2753 

1 . 39*27 

1.36170 

1.32981 

1.29857 

1.26799 - 3 

1.23805 ' 

1.20873 

1.18003 

1 . 1519 * 

1 . 12 *** 

1.09752 

1.07117 

1 . 0*539 

1.02015 

9 . 95*58 - * 
9 . 7129 * 

9.*7651 
9 . 2*518 
9.01887 
8 . 797*6 
8.58089 
8 . 3690 * 
8.16183 
7.95918 


5.36268 
5.23939 
5.11862 
5.00032 
*. 88**5 
*.77096 
*.65980 
*.55095 
*.***35 
*.33997 

*.23776 
*.13769 
*.03972 
3 . 9*380 
3 . 8*990 
3.75799 
3.66803 
3.57997 
3.*9379 
3 .* 09*6 

3.32693 
3 . 2*617 
3 . 16715 
3 . 0898 * 
3 . 01*20 
2 . 9*020 
2.66782 
2.79702 
2.72777 
2 . 6600 * 


5.3888 

5.2793 

5.1717 

5.0660 

*.9622 

*.8603 

*.7601 

*•6618 

*.5653 

*.*705 

*. 377 * 
*.2860 
*.1963 
*.1062 
*.0217 
3.9368 
3.8535 
3.7717 
3 . 691 * 
3.6126 

3.5353 
3 . * 59 * 
3.3850 
3.3119 
3 . 2*02 
3.1699 
3.1009 
3.0332 
2.9668 
2.9017 


7 . 0*65 

6.9033 

6.7626 

6 . 6 ?** 

*887 

6 . 355 * 

6 . 22*5 

6.0959 

5.9697 

5 . 8*57 

5 . 72*0 
5 . 60*5 
5.*872 
5.3720 
5.2589 
5 . 1*79 
5.0389 
*.9320 
*.8270 
*. 72*0 

*.6229 
*.5237 
*•*263 
*•3308 
*.2370 
*. 1*51 
*• 05*8 
3.9663 
3.8795 
3 . 79*3 


2*5000 

2*5500 

2*6000 

2*6500 

2*7000 

2*7500 

2*8000 

2*8500 

2*9000 

2*9500 

250000 
25C500 
25 1000 
251500 
252000 
252500 
253000 
253500 
25*000 
25*500 

255000 

255500 

256000 

256500 

257000 

257500 

258000 

258500 

259000 

259500 

260000 

260500 

261000 

261500 

262000 

262500 

263000 

263500 

26*000 

26*500 

26S000 

265500 

266000 

266500 

267000 

267500 

268000 

268500 

269000 

269500 


2*2155 

2 * 26*3 

2*3132 

2*3620 

2**108 

2**597 

2*5085 

2*5573 

2*6062 

2*6550 

2*7038 

2*7526 

2*8015 

2*8503 

2*8991 

2 * 9*79 

2*9967 

250*55 

2509*3 

251*31 

251919 

252*07 

252895 

253383 

253871 

25*359 

25 * 8*7 

255335 

255822 

256310 

256798 

257286 

25777 * 

258261 

2587*9 

259237 

25972 * 

260212 

260699 

261187 

261675 

262162 

262650 

263137 

26362 * 

26*112 

26*599 

265087 

26557 * 

266061 


362 . 5*7 
361.*75 
360.*0 
359.33 

358.26 

357.19 

356.12 
355 . 0 * 

353.97 

352.90 

351.83 

350.76 
3 * 9.69 
3 * 8.62 
3 * 7 . 5 * 
3 * 6.*7 
3 * 5.*0 
3**.33 
3 * 3.26 
3 * 2.19 

3 * 1.12 

3 * 0.05 

338.98 

337.91 

336.83 

335.76 
33*.69 
333.62 

332.55 
331.*8 

330.*1 
329 . 3 * 

328.27 

327.20 

326.13 

325.17 

325.17 

325.17 

325.17 

325.17 

325.17 

325.17 

325.17 

325.17 

325.17 

325.17 

325.17 

325.17 

325.17 

325.17 


• 97.123 
- 98.195 
- 99.27 
100 . 3 * 

101. *l 

102 . *8 

103.55 
10*.63 
105.70 

106.77 

107 . 8 * 

108.91 

109.98 
111.05 

112.13 

113.20 
11*.27 
115 . 3 * 

116. * 1 

117.*8 

118.55 
119.62 
120.69 
121.76 
122 . 8 * 

123.91 
12*.98 
126.05 
127.12 
128.19 

129.26 

130.33 

131 . *0 

132 . *7 
133 . 5 * 
13*.50 
13*.50 
13*.50 
13*.SO 
13*.50 

13*.50 
13*.50 
I3*.50 
13*.50 
13*.50 
13*.50 
13*.SO 
13*.SO 
13*.50 
13*.50 


- 71.735 

- 72.331 

- 72.93 

- 73.52 

- 7*.12 

- 7*.71 

- 75.31 

- 75.90 

- 76.50 

- 77.09 

- 77.69 
- 78.28 
- 78.88 
- 79.*7 
- 80.07 
- 80.66 
- 81.26 
- 81.85 
- 82.*5 
- 83.05 

- 83 . 6 * 
- 8*.23 
- 8*.83 
- 85.*2 
- 86.02 
- 86.61 
- 87.21 
- 87.80 
- 88 . *0 
- 88.99 

- 89.59 
- 90 . 18 
- 90.78 
- 91.37 
- 91.97 
- 92.50 
- 92.50 
- 92.50 
- 92.50 
- 92.50 

- 92.50 

- 92.50 

- 92.50 

- 92.50 

- 92.50 

- 92.50 

- 92.50 

- 92.50 

- 92.50 

- 92.50 


2.62817 

2 . 5625 * 

2 .* 98 * 

2.*356 

2 . 37*3 

2 . 31*3 

2.2556 

2.1983 

2 . 1*23 

2.0875 

2 . 03*0 

1.9817 

1.9306 

1.8807 

1.8319 

1 . 78*2 

1.7377 

1.6922 

1 . 6*77 

1 . 60*3 

1.5620 
1.5206 
1•*802 
1.**07 
1.*022 
1 . 3o*6 
1.3278 
1.2920 
1.2570 
1.2229 

1.1895 

1.1570 

1.1253 

1 . 09 ** 

1 . 06*2 

1 . 03*7 

1.0060 

9 . 781 * 

9.5103 

9 . 2*68 

8.9905 

8 . 7 * 1 * 

8**992 

8.2637 

8 . 03*7 

7.8121 

7.5957 

7.3853 

7.1807 

6.9818 


7.76099 

7.56718 

7.3777 

7 . 192 * 

7.0112 

6 . 83*1 

6.6609 

6.*916 

6.3262 

6 . 16*5 

6.0065 
5.8520 
5.7011 
5.5537 
5.*096 
5.2688 
5.1313 
*.9970 
*•8658 
*.7376 

*•6125 

*.*902 

*.3709 

*. 25 ** 

*. 1*06 

*.0295 

3.9211 

3.8153 

3.7119 

3.6111 

3.5127 

3**167 

3.3230 

3.2316 

3 . 1*25 

3.0555 

2.9708 

2 . 888 * 

2 . 808 * 

2.7306 

2 . 65*9 

2.5813 

2.5096 

2.**03 

2.3727 

2.3069 

2 . 2*30 

2.1609 

2.1205 

2.0617 


2.59380 

2.52903 

2.*657 

2.*036 

2 . 3*32 

2 . 28*0 

2.2261 

2.1696 

2 . 11*3 

2.0602 

2 . 007 * 

1.9558 

1 . 905 * 

1.8561 

1.8079 

1.7609 

1 . 71*9 

1.6700 

1.6262 

1 . 583 * 

1 . 5*15 
1.5007 
1 • *606 
1.*2 19 
1.3838 
1 . 3*67 
1.3105 
1.2751 
1 . 2*06 
1.2069 

1 . 17*0 
1 . 1*19 
1.1106 
1.0800 
1.0502 
1.02 12 
9.9287 
9.6535 
9.3859 
9.1258 

8.8729 

8.6271 

8.3680 

8.1556 

7.9297 

7.7100 

7 .* 96 * 

7.2887 

7.0868 

6.6905 


2.8378 
2.7751 
2 . 71 * 
2.653 
2 . 59 * 
2.536 
2 . *80 
2 . * 2 * 
2.369 
2.316 

2.263 
2.212 
2 . 16 ) 
2.112 
2.063 
2.016 
1.969 
1 . 92 * 
1.879 
1.835 

1.792 

1.750 

1.709 

1.669 

1.630 

1.591 

1.553 

1.516 

i.*eo 

i.*** 

1 . *09 
1.375 
1 . 3*2 
1.309 
1.277 
1.2*6 
1.211 
1.178 
1 . 1*5 
1.113 

1.082 
1.052 
1.023 
9 . 9*6 
9.673 
9 . *05 
9 . 1 ** 
8.891 
6 . 6*5 

8 . *05 


3.7108 

3.6288 

3 . 5*8 

3 . *70 

3.392 

3.317 

3 . 2*2 

3.169 

3.098 

3.028 

2.959 
2.892 
2.626 
2.761 
2.698 
2.636 
2.575 
2.516 
2.*57 
2.*00 

2 . 3 ** 

2.289 

2.235 

2.182 

2.131 

2.080 

2.031 

1.962 

1.935 

1.688 

1 . 8*3 
1.798 
1.755 
1.712 
1.670 
1«629 
1 . 58 * 
1 . 5*0 
1 .*97 
1 .*56 

1 .*15 
1.376 
1.338 
1.301 
1.265 
1.230 
1.196 
1.163 
1.130 
1.099 
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TABLE EL— Continued 
GEOMETRIC ALTITUDE, ENGLISH UNITS 


Altitude 


Temperature 


Pressure 


Density 


2, ft H, ft 



27 COOO 

27 C 50 C 

271000 

271500 

272000 

27250 C 

273000 

273500 

27*000 

27*500 

275000 

275500 

276000 

276500 

277000 

277500 

270000 

270500 

279000 

279500 

280000 

26 C 500 

281000 

261500 

282000 

282500 

263000 

203500 

26*000 

26*500 

285000 

285500 

28600C 

286500 

287000 

287500 

286000 

266500 

289000 

289500 

290000 

290500 

291000 

291500 

29200 C 

292500 

293000 

293500 

29*000 

29*500 

295000 

295500 

296000 

296500 

297000 

297500 

298000 

298500 

299000 

299500 

JOOOOO 


2665*9 

267036 

267523 

268010 

268*98 

268985 

269*72 

269959 

270**6 

270933 

271*20 

271908 

272395 

272882 

273369 

273856 

27 * 3*2 

27*829 

275316 

275803 

276290 

276777 

27726 * 

277750 

278237 

27872 * 

279211 

279697 

28018 * 

280671 

281157 

2816 ** 

282130 

282617 

283103 

283590 

28*076 

28*565 

2850*9 

285536 

286022 

286509 

286995 

287*81 

287967 

288 * 5 * 

2089*0 

289*26 

289912 

290399 

290885 

291371 

291857 

2923*3 

292829 

293315 

293801 

29*287 

29*773 

295259 

2957*5 


325.17 
325.17 
325.17 
325.17 
325.17 
325.17 
325.17 
325.17 
325.17 
325.17 

325.17 

325.17 

325.17 

325.17 

325.17 

325.17 

325.17 

32 5 .17 

325.17 
325.17 

325.17 

325.17 

325.17 

325.17 

325.17 

325.17 

325.17 

325.17 

325.17 

325.17 

325.17 

325.17 

325.17 

325.17 

325.17 

325.17 

325.17 

325.17 

325.17 

325.17 

325.17 

325.17 

325.17 

325.17 

325.17 

325.17 

325.17 

325.17 

325.17 

325.17 

325.17 
325 . 5 * 
326.36 

327.17 
327.99 
328.81 
329.63 
330.*5 
331.27 
332.09 

332.90 


- 13*.50 
- 13*.50 
- 13*.50 
- 13*.50 
- 13*.50 
- 13*.50 
- 13*.50 
- 13*.50 
- 13*.50 
- 13*.50 

- 13*.50 
- 13*.50 
- 13*.50 
- 13*.50 
- 13*.50 
- 13*.50 
- 13*.50 
- 13*.50 
- 13*.50 
- 13*.50 

- 13*.50 
- 13*.50 
- 13*.50 
- 13*.50 
- 13*.50 
- 13*.50 
- 13*.50 
- 13*.50 
- 13*.50 
- 13*.50 

- 13*.50 
- 13*.50 
- 13*.50 
- tS *.50 
- 13*.50 
- 13*.50 
- 13*.50 
- 13*.50 
- 13*.50 
- 13*.50 

- 13*.50 
- 13*.50 
- 13*.50 
- 13*.50 
- 13*.50 
- 13*.50 
- 13*.50 
- 13*.50 
- 13*.50 
- 13*.50 

- 13*.50 
- 13*.13 
- 133.31 
- 132.50 
- 131.68 
- 130.86 
- 130 . 0 * 
- 129.22 
- 128**0 
- 127.58 

- 126.77 



2.50 

2.50 

2.50 

2.50 

2.50 

• 92.50 

- 92.50 

■ 92.50 

• 92.50 

• 92.50 

• 92.50 

• 92.50 

- 92.50 

► 92.50 

• 92.50 

■ 92.50 

• 92.50 

• 92.50 

■ 92.50 

• 92.50 

► 92.50 

■ 92.50 

► 92.50 

► 92.50 

• 92.50 

• 92.50 

• 92.50 

• 92.50 

• 92.50 

• 92.50 


- 92.50 

- 92.50 

- 92.50 

- 92.50 

- 92.50 

- 92.50 

- 92.50 

- 92.50 

- 92.50 

- 92.50 

- 92.50 

- 92.50 

- 92.50 

- 92.50 

- 92.50 

- 92.50 

- 92.50 

- 92.50 

- 92.50 

- 92.50 

- 92.50 
- 92.30 
- 91 . 8 * 
- 91.39 
- 90.93 
- 90.*0 
- 90.02 
- 89.57 
- 89.11 
- 88.66 

- 88.20 


P, mb 


6 . 788 * - 

6 . 600 * 

6.*176 
6.2399 
6.0671 
5.8990 
5.7357 
5.5769 
5.*225 
5.2723 

5 . 126 * - 

*. 98 ** 
*. 8*65 
*.7123 
*.5819 
*.*550 
*.3317 
*•2118 
*.0953 
3.9820 

3.8710 - 

3 . 76*6 

3.6605 

3.5592 

3.*607 

3.3650 

3.2719 

3 . 181 * 

3 . 093 * 

3.0078 

2 . 92*6 - 

2 . 8*37 
2.7651 
2.6886 
2 . 61*2 
2 . 5*19 
2 .* 716 
2.*033 
2.3369 
2.2722 

2 . 209 * - 

2 . 1*83 

2.0890 

2.0312 

1.9751 

1.9205 

1 . 867 * 

1.8150 

1.7656 

1.7168 

1 . 669 * - 

1.6232 

1.5785 

1.5351 

1.*930 

1 .*522 

1 •* 125 

1 . 37*1 

1.3368 

1.3006 

1 . 265 * - 


in. Hg 



■fr P> ,b fr 



2 . 00*6 - * 

1 . 9*91 

1.8951 

1 . 8*26 

1.7916 

1 . 7*20 

1.6937 

1 . 6*69 

1.6013 

1.5569 # 

1.5138 - * 

1 .*719 

1 •*312 

1.3915 

1.3530 

1.3156 

1.2792 

1 . 2*30 

1.2093 

1.1759 

1 . 1*33 - * 

1.1117 

1.0609 

1.0510 

1.0219 

9.9367 - 5 

9.6618 

9 . 39*5 

9 . 13*7 

8.8820 

8.6363 - 5 

8 . 397 * 

8.1652 

7 . 939 * 

7.7198 

7.5063 

7.2988 

7.0970 

6.9007 

6.7099 

6 . 52 ** - 5 

6 . 3**1 

6.1687 

5.9982 

5 . 832 * 

5.6712 

5 . 51 ** 

5.3620 

5.2130 

5.0697 

*.9296 - 5 

*. 793 * 

*•6613 

*•5331 

*.*088 

*.2882 

*.1712 

*•0576 

3 . 9*75 

3 . 8*05 

3.7368 - 5 


6.6996 - 

6 . 51*1 

6.3337 

6.1583 

5.9877 

5.8219 

5.6607 

5.5039 

5.3516 

5 . 203 * 

5.0593 - 

*.9193 

*.7831 

*.6507 

*.5219 

*.3968 

*.2751 

*•1568 

*• 0*17 

3.9299 

3.8211 - 

3 . 715 * 

3.6126 

3.5126 

3 .* 15 * 

3.3210 

3.2291 

3.1398 

3.0529 

2.9685 

2.8063 - 

2.8065 

2.7289 

2 . 653 * 

2.5800 

2.5007 

2.*393 

2.3719 

2.3063 

2 . 2*25 

2.1805 - 

2.1203 
2.0616 
2 . 00*6 
1 . 9*92 
1 . 895 * 
1 . 8*30 
1.7920 
1 . 7*25 
1 . 69 ** 

1 . 6*75 - 

1.6020 
1.5579 
1.5150 
1 «* 7 J 5 
1.*332 
1 . 39*1 
1.3561 
1.3193 
1.2835 

1 . 2*89 - 


8.172 - 

7 . 9*6 

7.726 

7.512 

7 . 30 * 

7.102 

6.905 

6 . 71 * 

6.528 

6 . 3*7 

6.171 - 

6.001 

5.835 

5.673 

5.516 

5.363 

5.215 

5.071 

*•930 

*• 79 * 

*.661 - 
*.532 
*•*07 
*.285 
*. 166 
*•051 
3.939 
3.830 
3 . 72 * 
3.621 

3.521 - 

3.*23 

3.329 

3.237 

3 . 1*7 

3.060 

2.976 

2.893 
2.813 
2.735 

2.660 - 
2.586 
2.515 
2.**5 
2.378 
2.312 
2.2*0 
2 . 106 
2.126 
2.067 

2.010 - 

1.952 

1.893 
1.837 
1.782 
1.729 
1.677 
1.628 
1.580 
1.533 

!.*68 - 


1.069 - 

1.039 
1.010 
9.823 - 

9.551 
9.286 
9.029 

8.779 
8.536 
8.300 

8.070 - 

7 . 8*7 

7.629 
7 .* 18 
7.213 
7.013 
6.819 

6.630 
6.**7 
6.268 

6.095 - 

5.926 

5.762 

5.603 

5 .**B 

5.297 

5.151 

5.008 

*•870 

*.735 

*• 60 * - 
*.*77 
*.353 
*•232 
*• 115 
*.002 
3.091 
3.783 
3.679 
3.577 

3.*78 - 

3.382 

3.288 

3.198 

3.109 

3.023 

2 . 9*0 

2.858 

2.779 
2.703 

2.628 - 

2.552 
2.*76 
2.*02 
2.330 
2*261 
2.193 
2.120 
2.065 
2 . 00 * 

1 . 9*6 - 
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CALCULATION OF STATIC MARGINS 
FOR SAMPLE MISSIONS 


I 

m Calculation of Center of Pressure, xcp, with 5000 lb Return Payload 


■ 

w 

12145.05 






CD 

1.766044 
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1 

B 

n 9 C7 i?97S 

Jmm W 4m Vif An * w l«n 
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DIA 

62.34128 






1 

33.17110 





1 

xcp 

-5.49291 





1 

r = distance from reference 

point to 

center 

of mass of section 

m 

m = mass 

of section 






xcm ~ (totl rxm)/(totl m) 




i 

static margin = xcm 

- xcp 
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r 

m 

r x m 


totl m totl rxm xcm 

1 


*************************** 


*************************** 


02 tank 

r>o 

A- Q 

444.21 

12437.88 


7145.05 216461.6 30.29532 


H2 tank 

17.5 

342.84 

5999.7 




N2 tank 

8 

358 

2864 




arobrke 

43 

2300 

98900 


static margin 


structure 

21 

1840 

38640 


************* 


avionics 

“7 vi cr 

■:>4 « sj 

930 

32085 


35.78823 


att cntrl 

21 - 5 

200 

4300 




prop1sn 

o9. 5 

530 

20935 




docking 

1.5 

200 

300 




payload 

0 

0 

0 





r 

m 

r x m 


totl m totl rxm xcm 



*************************** 


*************************** 


02 tank 

An CJ 

444.21 

12437.88 


1 1145.05 192461.6 17 « 26879 


H2 tank 

17.5 

342.84 

5999.7 




M2 tank 

8 

358 

2864 




arobrke 

43 

2300 

98900 


static margin 


structure 

i 

jL 1 

1840 

38640 


************* 


avionics 

34.5 

930 

32085 


22.76170 


att cntrl 

21.5 

200 

4300 




prop1sn 

r) tr 

O / ■ v_J 

530 
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docking 

1 . 5 

200 

300 


OF POOR QUALITY 


payload 

—6 

4000 

-24000 





r 

m 

r x m 


totl m totl r xm x cm 


*************************** 


* ********* * * * * * * * * * * * * * * * * * 


02 tank 

28 

444.21 

12437.88 


18145. 05 128461.6 7 . 079704 


H2 tank 

17.5 

342.84 

5999.7 




M2 tank 

8 

358 

2864 




arobrke 

43 

2300 

98900 


static margin 


structure 

i 

1840 

38640 


************# 


avionics 

34.5 

930 

32085 


1 n -t 

i An M W / 4n* U’ M 


att cntrl 

n j cr 

j!»i 4. v w 

200 

4300 

31 



proplsn 

•~r /— v rr* 

. vJ 

530 

20935 



docking 

1.5 

200 

300 




payload 

-8 

11000 

“88000 
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VOLUME 

ACC 

FULL 

7.584 

3/4 

9.045 

1/2 

11.45 

1/4 

i -T 

i U a w 


CALCULATION OF HYDROSTATIC PRESSURE IN HYDROGEN 
TANK DUE TO ACCELERATION 
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H 


GAMMA 


DENSITY PAYLOAD ACTUAL H 
H2 15000 


1921.738 37.35299 .0194370 .0025629 
1595.991 36.99736 .0231814 .0025629 
1244.822 36.52956 .0293452 .0025629 
910.1733 35.69005 .0392124 .0025629 


cr 

u 


172 

•j OQ "T 

4 . 7 m ■— 1 

86.2 

43. 1 


I 

I 

J 

I 

I 




J 

I 




PROPELLANT TANK PRESSURIZATION CALCULATION 


Values -for Nitrogen 


I gas constant, R = 55.15 -ft lbf/lbm R 
specific heat -ratio, Jf' — 1.4 
initial tank temperature, T 0 - 450.6 R 

I initial tank pressure, = 2205 psia 
minimum tank pressure, l^ w = 573.3 psia 
. density at F; and T. , o = 12.7952 lbm/ft 


tank volume, = 572.098 ft ORIGIN) 

a tank pressure, P Qv = 22 psia Qp pQ£ 

s Values for Hydrogen 

I tank volume, V rtt = 1553.B45 ft 
™ tank pressure, Fl - 34 psia 

I Mass of Nitrogen Needed to Pressurize Oxygen Tank 
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< i V'W /R T # Xf/Cl - (F^/P b ) 33- 


(22)(144)(572.098) 


(55.15)(450.6) 


1.4 


/ cr ~7 “T rr / noAcr ^ 
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137.93 lbm 


Mass of Nitrogen Needed to Pressurize Hydrogen Tank 
m - (F^'v^/R T. ) 1*7 Cl - (P^/P. >3 3- 


(34) (144) (1553.845) 


(55.15)(450.6) 


1.4 


(573.3/2205) 


m = 579.174 lbm 


Total Nitrogen Needed to Pressurize Propellants 
m = (137.93 + 579.174)1bm = 717.154 lbm 
volume, Vfj v = m/(p. = (17.154 lbm)/(12.7952 lbm/ft ) 
V Mi _ = 56.0487 ft 3 
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